﻿Public Class NCC_Nhap
    Private nccDT As NhaCungCapDT
    Private nccBL As NhaCungCapBL
    Public Id As Integer = 0
    Public MaNCC As String = ""
    Public hotenNCC As String = ""
    Public diachi As String = ""
    Public dienthoai As String = ""
    Public email As String = ""
    Public flagIsUp As Boolean

    Private Sub xuli_themsua()
        nccBL = New NhaCungCapBL()
        If flagIsUp = True Then
            Try
                Dim i As Integer = nccBL.GetID()
                Dim ma As String = "NCC" + (i + 1).ToString("000")
                'Dim them As String = "insert into NhaCungCap(hotenNCC,dienthoai,diachi,email) values(N'" + txtTen.Text + "'," + txtDT.Text + ",N'" + txtDC.Text + "','" + txtEmail.Text + "')"
                nccDT = New NhaCungCapDT(ma, txtTen.Text, txtDT.Text, txtDC.Text, txtEmail.Text)
                nccBL.InUp(nccDT, flagIsUp)
                MessageBox.Show("Thêm thành công!")
                Me.Close()
            Catch ex As Exception
                MessageBox.Show("Kiểm tra lại kĩ thông tin. Ví dụ: Số điện thoại nccông quá 11 số hoặc nccông  chứa chữ", "Thông báo")
            End Try
        Else
            Try
                'Dim sua As String = "update NhaCungCap set hotenNCC = N'" + txtTen.Text + "',dienthoai=" + txtDT.Text + ",diachi =N'" + txtDC.Text + "',email ='" + txtEmail.Text + "' where MaNCC =" & MaNCC & ""
                nccDT = New NhaCungCapDT(Id)
                nccBL.InUp(nccDT, flagIsUp)
                MessageBox.Show("Sửa thành công!")
                Me.Close()
            Catch ex As Exception
                MessageBox.Show("Kiểm tra lại kĩ thông tin. Ví dụ: Số điện thoại nccông quá 11 số hoặc nccông  chứa chữ", "Thông báo")
            End Try
        End If
    End Sub

    Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click
        If txtTen.Text = "" Then
            MessageBox.Show("Không được để trống tên nccách hàng")
        Else
            If txtDT.Text = "" And txtEmail.Text = "" And txtDC.Text = "" Then
                MessageBox.Show("Phải có cách liên lạc nccách hàng ( điện thoại, email, địa chỉ ) !")
            Else
                xuli_themsua()
            End If
        End If
    End Sub

    Private Sub NCC_Nhap_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtTen.Focus()
        If flagIsUp = False Then
            btnThem.Text = "Sửa"
            txtTen.Text = hotenNCC
            txtDT.Text = dienthoai
            txtDC.Text = diachi
            txtEmail.Text = email
        End If
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Me.Close()
    End Sub

    Private Sub NCC_Nhap_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Enter Then
            If txtTen.Text = "" Then
                MessageBox.Show("Không được để trống tên nccách hàng")
            Else
                If txtDT.Text = "" And txtEmail.Text = "" And txtDC.Text = "" Then
                    MessageBox.Show("Phải có cách liên lạc nccách hàng ( điện thoại, email, địa chỉ ) !")
                Else
                    xuli_themsua()
                End If
            End If
        End If
    End Sub
End Class